home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utilmus / prtrk352.lha / ProTracker / Install next >
Text File  |  1996-05-02  |  4KB  |  144 lines
  1. ;ProTracker Pro INSTALLATION SCRIPT © TEC DESIGN
  2. ;VER: $1.2 02.05.1996 (LHA)
  3.  
  4. (set @app-name "ProTracker Pro") 
  5. (set @language "english")
  6. (set @abort-button "Abort Installation")
  7. (set @error-msg "Error!")
  8. (set @pretend 0)
  9. (set @special-msg "Large Error!")
  10. (set @user-level 2)
  11.  
  12. (welcome "Welcome to the Protracker Pro V3.52 Installation.\nNote: you MUST have booted from your hard disk!")
  13. (set Ok 0)
  14. (complete 0)
  15.  
  16. (set pt_dir (getassign "ProTracker" "a")) 
  17.   (
  18.      (set pt_dir
  19.         (askdir
  20.            (prompt
  21.               "Please choose a path who Protracker shall\n"
  22.               "installed.\n"
  23.                "A new drawer named 'Protracker' would be\n "
  24.               "created.\n"
  25.            (help
  26.               "Chhoose path for Protracker main file and the guide\n")
  27.            (default "SYS:"))
  28.         )
  29.      )
  30.      (set pt_dir (tackon pt_dir "ProTracker"))
  31.  
  32.      ;CREATE PT DRAWER
  33.      (if (<> (exists pt_dir) 2) (makedir pt_dir (infos)))
  34.  
  35.   )
  36. (copyfiles
  37.    (prompt "Copying base files ...")
  38.    (help "dummy")
  39.    (source "Main/")
  40.    (dest pt_dir)
  41.    (pattern "#?")
  42.    (safe)
  43.    (infos)
  44.    (confirm)
  45.    (optional nofail askuser)
  46. )
  47. (complete 40)
  48.  
  49. ;copying of the help data file in s:
  50.  
  51. (copyfiles
  52.    (prompt "Copying helpfile")
  53.    (help "dummy")
  54.    (source "Data/")
  55.    (dest "S:")
  56.    (pattern "pt.help")
  57.    (safe)
  58.    (infos)
  59.    (confirm)
  60.    (optional nofail askuser)
  61. )
  62. (complete 50)
  63.  
  64. (copyfiles
  65.    (prompt "Please choose your locale Keyboard driver ...\nActually only this german driver aviable!\nSkip this part if your native language is NOT german.\n")
  66.    (help "actually only german driver aviable")
  67.    (source "Data/")
  68.    (dest "S:")
  69.    (pattern "pt.keymap#?")
  70.    (safe)
  71.    (infos)
  72.    (confirm)
  73.    (optional nofail askuser)
  74. )
  75. (complete 60)
  76.  
  77. (copyfiles
  78.    (prompt "Install of default configuration files...\n\nSkip this part if have already used Protracker Pro.\n")
  79.    (help "usefull standart configurations for quickstarting with Protracker Pro.")
  80.    (source "Data/")
  81.    (dest "S:")
  82.    (pattern "pt.config#?")
  83.    (safe)
  84.    (infos)
  85.    (confirm)
  86.    (optional nofail askuser)
  87. )
  88. (complete 70)
  89.  
  90.  
  91. ;if not anythere install ST-00 standarts
  92. (set st_dir (getassign "ST-00" "a")) 
  93.   (
  94.      (set st_dir
  95.         (askdir
  96.            (prompt
  97.               "Please choose a path who Installer should made an\n"
  98.               "ST-00 drawer. Protracker need this for his Sound Files\n"
  99.               "with an logical Assign to ST-00: If already exists,\n"
  100.               "nothings will be overwritten. Only the dirs will\n "
  101.               "be created if not aleady aviable.\n"
  102.            (help
  103.               "Choose path for ST-00 assignment\n")
  104.            (default pt_dir))
  105.         )
  106.      )
  107.      (set st_dir (tackon st_dir "ST-00"))
  108.  
  109.      ;CREATE ST DRAWER
  110.      (if (<> (exists st_dir) 2) (makedir st_dir (infos)))
  111.  
  112.      ;create ST subdrawerd
  113.      (set md_dir (tackon st_dir "modules"))
  114.      (if (<> (exists md_dir) 2) (makedir md_dir (infos)))
  115.  
  116.      (set so_dir (tackon st_dir "songs"))
  117.      (if (<> (exists so_dir) 2) (makedir so_dir (infos)))
  118.  
  119.      (set sa_dir (tackon st_dir "samples"))
  120.      (if (<> (exists sa_dir) 2) (makedir sa_dir (infos)))
  121.  
  122.      (set pa_dir (tackon st_dir "patterns"))
  123.      (if (<> (exists pa_dir) 2) (makedir pa_dir (infos)))
  124.  
  125.      (set ins_dir (tackon st_dir "instruments"))
  126.      (if (<> (exists ins_dir) 2) (makedir ins_dir (infos)))
  127.  
  128.      (set exe_dir (tackon st_dir "executables"))
  129.      (if (<> (exists exe_dir) 2) (makedir exe_dir (infos)))
  130.  
  131.   )
  132. (complete 90)
  133. (set start-lines (cat "assign ST-00: " st_dir))
  134. (startup @app-name (prompt "\nThe following lines will be added to "
  135.                                "your user-startup:\nassign ST-00: "
  136.                                st_dir "\n")
  137.                        (command start-lines)
  138. (help "Protracker needs an assign named ST-00 who most MODS/samples are installed")
  139. )
  140. ;installation complete
  141.  
  142. (complete 100)
  143. (exit "Installation of Protracker complete.If you are an programmer, please take a look in the drawer 'source' ...\n\n\n\nHave Fun!\n\n")
  144.